Option Explicit
Sub N_Sample024()
    Dim myAr As Variant
    Dim i    As Long
    'w}C
    myAr = Array("123", "2D3", "a12", "1.56", "3E-5", "2%", "1,235", "E")
    For i = 0 To UBound(myAr)
        If IsNumeric(myAr(i)) Then
            MsgBox myAr(i) & "QO" & Val(myAr(i)) & "oӼƭȡC"
        Else
            MsgBox myAr(i) & "LkQƭ"
        End If
    Next
    'w}C
    myAr = Array(123, "123", 2.5, "2.5")
    For i = 0 To UBound(myAr)
        If WorksheetFunction.IsNumber(myAr(i)) Then
            MsgBox myAr(i) & "QƭȡC"
        Else
            MsgBox myAr(i) & "LkQƭ"
        End If
    Next
End Sub
